home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Developer Source 7
/
developer source - volume 7.iso
/
delph
/
aug95
/
ripp1f7.gif
< prev
next >
Graphics Interchange Format
|
1996-11-15
|
8KB
|
534x373
|
4-bit (5 colors)
Labels:
text
|
electronics
|
screenshot
|
display
|
software
|
number
|
font
OCR:
GLOSSARY.PAS procedure TForm1 . Button1Click (Sender: TObject) ; var SelectedWord: String; begin with TGlossary do begin EditKey; SelectedWord := UpperCase (Memo1. SelText) ; FieldByName (' Word' ) . AsString := SelectedWord; if not GoToKey then MessageDlg ('No definition is available for '+ SelectedWord+'. ', mt Information, [mbOk] , 0) else MessageDlg ( TGlossary . FieldByName (' Definition' ) . Text, mt Information, [mbOk] , 0) ; end; end; 46: 39 Modified Insert Glossary